home *** CD-ROM | disk | FTP | other *** search
/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / utilities / _apps_2 / smallapps1 / _bilingual / bt < prev    next >
Encoding:
Text File  |  1990-12-03  |  332 b   |  19 lines
  1. *BASIC
  2. LOAD "<file$name>"
  3. OSCLI("SPOOL <file$name>")
  4. LIST
  5. OSCLI("SPOOL")
  6. OSCLI("SetType <file$name> Text")
  7. NEW
  8. 10F%=OPENIN("<file$name>"):L%=EXT#F%:CLOSE#F%
  9. 20DIM M% L%+10
  10. 30OSCLI("Load <file$name> "+STR$~M%)
  11. 40F%=OPENOUT("<file$name>")
  12. 50FOR K%=M%+6 TO (M%+L%-18)
  13. 60IF ?K%<>13 THEN BPUT#F%,?K%
  14. 70NEXT
  15. 80CLOSE#F%
  16. 90END
  17. RUN
  18. *DESKTOP
  19.